﻿Imports System.Reflection

<AttributeUsage(AttributeTargets.Property, Inherited:=False, AllowMultiple:=True)> _
Public Class PropertyFilterAttribute
    Inherits Attribute

    Private m_filter As Type

    Public Property Filter() As Type
        Get
            Return Me.m_filter
        End Get
        Set(ByVal value As Type)
            Me.m_filter = value
        End Set
    End Property

    Public Sub New(ByVal value As Type)
        Me.m_filter = value
    End Sub
End Class
